Developing Data Products Week 3: Plotly

Loading Required Packages and Us Arrests Dataset from R

library(plotly)

## Warning: package 'plotly' was built under R version 4.1.3

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 4.1.2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

df <- USArrests
df$region <- tolower(rownames(USArrests))

#Data Visualization:

 fig <- plot_ly(x = df$UrbanPop, 
         y = df$Murder, 
         type = "scatter", 
         mode = "markers", 
         color = df$region)

fig <- fig %>% layout(title = 'Urban Population vs. Murder Arrests by State',
         xaxis = list(title = '% Urban Population'),
         yaxis = list(title = 'Murder Arrests (per 100,000'))

fig

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors